home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.08 Aug 89 / MacApp Intro Source / MSample.p next >
Encoding:
Text File  |  1989-06-08  |  761 b   |  29 lines  |  [TEXT/MPS ]
  1. PROGRAM Sample;
  2.  
  3.     {$MC68020-}    {The main program must be universal code}
  4.     {$MC68881-}
  5.  
  6. USES
  7.     UMacApp, UPrinting,    {MacApp stuff}
  8.     USample;                        {Our stuff}
  9.  
  10. VAR
  11.     gSampleApplication:   TSampleApplication;
  12.  
  13. {$S Main}
  14. BEGIN
  15.     InitToolBox;    {essential toolbox and utilities}
  16.     IF ValidateConfiguration(gConfiguration) THEN 
  17.         BEGIN    {make sure we can run}
  18.             InitUMacApp(8);             {init MacApp; 8 calls to MoreMasters}
  19.             InitUPrinting;                {init MacApp units}
  20.         
  21.             New(gSampleApplication);        {create an application object}
  22.             FailNil(gSampleApplication);    {make sure enough memory}
  23.             gSampleApplication.ISampleApplication;    {init application}
  24.             gSampleApplication.Run;                    {run application}
  25.         END
  26.     ELSE
  27.         StdAlert(phUnsupportedConfiguration);    {tell user we can't run}    
  28. END.
  29.